inherited sprReports: TsprReports
  Top = 321
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1087#1077#1095#1072#1090#1085#1099#1093' '#1086#1090#1095#1077#1090#1086#1074
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Top = 77
    Height = 477
    inherited PageControl1: TPageControl
      Height = 477
      inherited tsTab: TTabSheet
        inherited GroupBox3: TGroupBox
          Height = 449
          inherited dbgRefer: TDBGridEh
            Height = 432
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ID'
                Footers = <>
                Width = 52
              end
              item
                EditButtons = <>
                FieldName = 'SHORTNAME'
                Footers = <>
                Width = 98
              end
              item
                EditButtons = <>
                FieldName = 'NAME'
                Footers = <>
                Width = 234
              end
              item
                EditButtons = <>
                FieldName = 'REPORT'
                Footers = <>
                Visible = False
              end
              item
                Checkboxes = True
                EditButtons = <>
                FieldName = 'REPSRV'
                Footers = <>
                Width = 84
              end
              item
                EditButtons = <>
                FieldName = 'CREATOR'
                Footers = <>
                Width = 58
              end
              item
                EditButtons = <>
                FieldName = 'CREATEDATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'MODIFIER'
                Footers = <>
                Width = 71
              end
              item
                EditButtons = <>
                FieldName = 'MODIFYDATE'
                Footers = <>
                Width = 76
              end>
          end
        end
      end
      inherited tsForm: TTabSheet
        inherited GroupBox2: TGroupBox
          Top = 0
          Width = 784
          Height = 449
          Align = alClient
          object GroupBox4: TGroupBox [0]
            Left = 2
            Top = 116
            Width = 780
            Height = 300
            Align = alClient
            Caption = #1042' '#1082#1072#1082#1080#1093' '#1092#1086#1088#1084#1072#1093' '#1086#1090#1086#1073#1088#1072#1078#1072#1090#1100
            TabOrder = 2
          end
          object Panel1: TPanel [1]
            Left = 2
            Top = 15
            Width = 780
            Height = 101
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 1
            object Label2: TLabel
              Left = 92
              Top = 4
              Width = 17
              Height = 13
              Caption = #1048#1044
            end
            object Label3: TLabel
              Left = 10
              Top = 24
              Width = 99
              Height = 13
              Caption = #1050#1086#1088#1086#1090#1082#1086#1077' '#1085#1072#1079#1074#1072#1085#1080#1077
            end
            object Label4: TLabel
              Left = 59
              Top = 48
              Width = 50
              Height = 13
              Caption = #1053#1072#1079#1074#1072#1085#1080#1077
            end
            object Label5: TLabel
              Left = 17
              Top = 68
              Width = 92
              Height = 26
              Alignment = taRightJustify
              Caption = #1042#1099#1087#1086#1083#1085#1103#1077#1090#1089#1103' '#1085#1072#13#10#1086#1090#1095#1077#1090#1085#1086#1084' '#1089#1077#1088#1074#1077#1088#1077
            end
            object DBEditEh1: TDBEditEh
              Left = 116
              Top = 0
              Width = 65
              Height = 21
              Color = clInactiveCaptionText
              DataField = 'ID'
              DataSource = dscRefer
              EditButtons = <>
              Enabled = False
              TabOrder = 0
              Visible = True
            end
            object DBEditEh2: TDBEditEh
              Left = 116
              Top = 24
              Width = 229
              Height = 21
              DataField = 'SHORTNAME'
              DataSource = dscRefer
              EditButtons = <>
              TabOrder = 1
              Visible = True
            end
            object DBEditEh3: TDBEditEh
              Left = 116
              Top = 48
              Width = 229
              Height = 21
              DataField = 'NAME'
              DataSource = dscRefer
              EditButtons = <>
              TabOrder = 2
              Visible = True
            end
            object DBCheckBoxEh1: TDBCheckBoxEh
              Left = 112
              Top = 76
              Width = 17
              Height = 17
              Alignment = taLeftJustify
              DataField = 'REPSRV'
              DataSource = dscRefer
              TabOrder = 3
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
          end
          inherited pnlButtons: TPanel
            Top = 416
            Width = 780
            inherited SpeedButton1: TSpeedButton
              Left = 580
              Top = 2
            end
            inherited SpeedButton2: TSpeedButton
              Left = 682
              Top = 2
            end
          end
        end
      end
    end
  end
  inherited GroupBox1: TGroupBox
    Height = 52
    object Label1: TLabel
      Left = 16
      Top = 20
      Width = 59
      Height = 13
      Caption = #1053#1072#1079#1074#1072#1085#1080#1077
    end
    object DBEditEh4: TDBEditEh
      Left = 84
      Top = 18
      Width = 417
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <>
      Flat = True
      TabOrder = 0
      Text = 'DBEditEh4'
      Visible = True
    end
  end
  inherited shblActionList: TActionList
    Left = 642
    Top = 400
  end
  inherited dsRefer: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE USERREPORT'
      'SET '
      '    SHORTNAME = :SHORTNAME,'
      '    NAME = :NAME,'
      '    REPORT = :REPORT,'
      '    REPSRV = :REPSRV'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    USERREPORT'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO USERREPORT('
      '    SHORTNAME,'
      '    NAME,'
      '    REPORT,'
      '    REPSRV'
      ')'
      'VALUES('
      '    :SHORTNAME,'
      '    :NAME,'
      '    :REPORT,'
      '    :REPSRV'
      ')')
    RefreshSQL.Strings = (
      'select * from userreport'
      ' WHERE '
      '        USERREPORT.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select'
      'ur.id,'
      'ur.shortname,'
      'ur.name,'
      'ur.report,'
      'ur.createdate,'
      'ur.modifydate,'
      'coalesce(ur.repsrv,0) as repsrv,'
      'u1.surname as creator, u2.surname as modifier '
      'from userreport ur'
      ' left join username u1 on u1.id = ur.createuserid'
      ' left join username u2 on u2.id = ur.modifyuserid')
    Left = 640
    Top = 304
    object dsReferID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsReferSHORTNAME: TFIBStringField
      DisplayLabel = #1050#1086#1088#1086#1090'.'#1085#1072#1079#1074#1072#1085#1080#1077
      FieldName = 'SHORTNAME'
      Size = 40
      EmptyStrToNull = True
    end
    object dsReferNAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1086#1090#1095#1077#1090#1072
      FieldName = 'NAME'
      Size = 80
      EmptyStrToNull = True
    end
    object dsReferREPORT: TFIBBlobField
      FieldName = 'REPORT'
      Visible = False
      Size = 8
    end
    object dsReferREPSRV: TFIBSmallIntField
      DefaultExpression = '0'
      DisplayLabel = #1054#1090#1095#1077#1090#1085#1099#1081' '#1089#1077#1088#1074#1077#1088
      FieldName = 'REPSRV'
    end
    object dsReferCREATOR: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1083
      FieldName = 'CREATOR'
      Size = 35
      EmptyStrToNull = True
    end
    object dsReferCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'CREATEDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object dsReferMODIFIER: TFIBStringField
      DisplayLabel = #1048#1079#1084#1077#1085#1080#1083
      FieldName = 'MODIFIER'
      Size = 35
      EmptyStrToNull = True
    end
    object dsReferMODIFYDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      FieldName = 'MODIFYDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
  end
  inherited dscRefer: TDataSource
    Left = 640
    Top = 352
  end
  inherited Timer1: TTimer
    Left = 644
    Top = 149
  end
  inherited trRefer: TpFIBTransaction
    Left = 636
    Top = 260
  end
  inherited trLists: TpFIBTransaction
    Left = 708
    Top = 149
  end
  inherited PropStorage: TPropStorageEh
    Section = 'sprReports'
    Left = 140
  end
  object dsReportForms: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE USERREPORT'
      'SET '
      '    SHORTNAME = :SHORTNAME,'
      '    NAME = :NAME,'
      '    REPORT = :REPORT,'
      '    REPSRV = :REPSRV'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    USERREPORT'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO USERREPORT('
      '    SHORTNAME,'
      '    NAME,'
      '    REPORT,'
      '    REPSRV'
      ')'
      'VALUES('
      '    :SHORTNAME,'
      '    :NAME,'
      '    :REPORT,'
      '    :REPSRV'
      ')')
    RefreshSQL.Strings = (
      'select * from userreport'
      ' WHERE '
      '        USERREPORT.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select'
      'ur.id,'
      'ur.shortname,'
      'ur.name,'
      'ur.report,'
      'ur.createdate,'
      'ur.modifydate,'
      'coalesce(ur.repsrv,0) as repsrv,'
      'u1.surname as creator, u2.surname as modifier '
      'from userreport ur'
      ' left join username u1 on u1.id = ur.createuserid'
      ' left join username u2 on u2.id = ur.modifyuserid')
    AfterCancel = dsReferAfterRefresh
    AfterEdit = dsReferAfterEdit
    AfterInsert = dsReferAfterInsert
    AfterRefresh = dsReferAfterRefresh
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trRefer
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 712
    Top = 304
    oFetchAll = True
    object FIBIntegerField1: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object FIBStringField1: TFIBStringField
      DisplayLabel = #1050#1086#1088#1086#1090'.'#1085#1072#1079#1074#1072#1085#1080#1077
      FieldName = 'SHORTNAME'
      Size = 40
      EmptyStrToNull = True
    end
    object FIBStringField2: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1086#1090#1095#1077#1090#1072
      FieldName = 'NAME'
      Size = 80
      EmptyStrToNull = True
    end
    object FIBBlobField1: TFIBBlobField
      FieldName = 'REPORT'
      Visible = False
      Size = 8
    end
    object FIBSmallIntField1: TFIBSmallIntField
      DefaultExpression = '0'
      DisplayLabel = #1054#1090#1095#1077#1090#1085#1099#1081' '#1089#1077#1088#1074#1077#1088
      FieldName = 'REPSRV'
    end
    object FIBStringField3: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1083
      FieldName = 'CREATOR'
      Size = 35
      EmptyStrToNull = True
    end
    object FIBDateField1: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'CREATEDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object FIBStringField4: TFIBStringField
      DisplayLabel = #1048#1079#1084#1077#1085#1080#1083
      FieldName = 'MODIFIER'
      Size = 35
      EmptyStrToNull = True
    end
    object FIBDateField2: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      FieldName = 'MODIFYDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
  end
  object dscReportForms: TDataSource
    DataSet = dsReportForms
    Left = 712
    Top = 352
  end
end
